home *** CD-ROM | disk | FTP | other *** search
/ Aminet 28 / Aminet 28 (1998)(GTI - Schatztruhe)[!][Dec 1998].iso / Aminet / dev / basic / ace_final.lha / ACE_GPL_Release / prgs / Gfx / pattern.b < prev    next >
Encoding:
Text File  |  1996-08-29  |  578 b   |  43 lines
  1. '..a test of PATTERN, AREA, AREAFILL
  2.  
  3. dim pat%(7)
  4.  
  5. for i=0 to 7
  6.  read pat%(i)
  7. next
  8.  
  9. data 0,&Hffff,&Hf00f,&Hf00f,&Hf00f,&Hf00f,&Hffff,0
  10.  
  11. screen 1,640,200,2,2
  12. window 1,,(0,0)-(640,200),32,1
  13.  
  14. palette 0,0,0,0
  15. palette 1,1,1,1
  16. palette 2,0,1,0
  17. palette 3,1,0,0
  18.  
  19. pattern &Hcccc,pat%
  20.  
  21. area (320,0)
  22. area step (-200,100)
  23. area step (400,0)
  24.  
  25. color 1
  26. areafill
  27.  
  28. line (100,125)-(200,125),3
  29. line (100,150)-(200,200),2,bf
  30.  
  31. circle (100,100),20,2
  32. paint (100,100),2
  33.  
  34. pattern restore
  35.  
  36. line (300,125)-(400,125),2
  37. line (300,150)-(400,199),3,bf
  38.  
  39. while inkey$="":sleep:wend
  40.  
  41. window close 1
  42. screen close 1
  43.